home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Using grooves in def-section < prev    next >
Text File  |  1998-10-26  |  665b  |  36 lines
  1. ; grooves in def-section
  2.  
  3. (def-orchestra 'orchestra
  4.    all-instruments (synth)
  5. )
  6.  
  7. ; Grooves are written the same way as lengths. There can be a one
  8. ; pattern for the whole section, or own groove pattern for each
  9. ; zone. All instruments can have own grooves. If no groove is
  10. ; defined, no grooving takes place.
  11.  
  12. (def-section sect-a
  13.    default
  14.       zone '(1/1 1/1 1/1 1/1)
  15.       tonality (activate-tonality (major c 4))
  16.       length '(1/8)
  17.       velocity '(64)
  18.    synth
  19.       symbol '(a b c)
  20.       duration '(1/4)
  21.       groove '(1/32 1/16t)
  22. )
  23.  
  24. (def-channel
  25.    synth 1 
  26. )
  27.  
  28. (def-tempo 120)
  29.  
  30. (midiport :printer)
  31.  
  32. (play-file-p "Grooving"
  33.    all-instruments '(sect-a)
  34. )
  35.  
  36.